Clinical plots - MDI ~ clinical variable
for (i in 1:length(clinical_plots)){
name <- names(clinical_plots)[i]
pl <- clinical_plots[[i]]
pl <- pl + ggtitle(name)
clinical_plots[[i]] <- pl
}
cl_asv <- ggarrange(
plotlist = clinical_plots[grepl("asv",names(clinical_plots))],
ncol=4,nrow=8)
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 161 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 341 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 161 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 341 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 331 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 331 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 332 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 332 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 122 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 244 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 153 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 326 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 340 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 150 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 319 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 330 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 20 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 36 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 20 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 34 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 103 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 199 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 103 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 208 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 103 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 208 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 103 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 208 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
cl_genus <- ggarrange(plotlist = clinical_plots[grepl("genus",names(clinical_plots))],
ncol=4,nrow=8)
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 161 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 341 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 161 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 341 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 331 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 331 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 332 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 332 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 122 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 244 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 153 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 326 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 340 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 162 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 342 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 150 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 319 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 156 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 330 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 20 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 36 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 20 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 34 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 103 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 199 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 103 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 208 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 103 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 208 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 103 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
## Warning in geom_text(aes(x = x_position, y = y_position), label = gsub("\\\\n", : All aesthetics have length 1, but the data has 208 rows.
## ℹ Please consider using `annotate()` or provide this layer with data containing a single row.
## `geom_smooth()` using formula = 'y ~ x'
cl_asv
## $`1`

##
## $`2`

##
## attr(,"class")
## [1] "list" "ggarrange"
cl_genus
## $`1`

##
## $`2`

##
## attr(,"class")
## [1] "list" "ggarrange"
pdf("results/clinical/correlation.pdf",height = 22,width =18)
cl_asv
dev.off()
pdf("results/clinical/correlation_genus.pdf",height = 22,width =18)
cl_genus
dev.off()